home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / watanabe / mouse / mouse_16.bas < prev    next >
BASIC Source File  |  1995-01-09  |  784b  |  19 lines
  1. 100 '********************************************************************
  2. 110 '*           マウスカーソルデータ読み込みサンプルプログラム         *
  3. 120 '*                                 （16×16ドット単色）             *
  4. 130 '*                               １月９日（月）  (C)渡辺 良一       *
  5. 140 '********************************************************************
  6. 150 SCREEN 0:SCREEN@0
  7. 160 COLOR 7,1:CLS
  8. 170 'ファイル読み込み
  9. 180   OPEN"I",#1,"mouse_16.dat"
  10. 190   A$=INPUT$(32,1):D$=INPUT$(32,1)
  11. 200   CLOSE #1
  12. 210 MOUSE 0 'マウス初期化
  13. 220 MOUSE 2,A$,D$,0,0 'マウスカーソルグラフィック設定
  14. 230 'マウス移動比率をＴｏｗｎｓＯＳ設定値に設定
  15. 240 MOUSE 3,0,INP(&H3B06):MOUSE 3,1,INP(&H3B06)
  16. 250 MOUSE 1,320,240,1 'マウス表示
  17. 260 WHILE NOT(MOUSE(2,0)):WEND
  18. 270 END
  19.